home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g15.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
1KB
|
44 lines
100 ' G15 T.WAKAMATSU
110 CLS
120 FOR N=3 TO 5
130 READ L,M,O:DATA 9,4,7,4,2,5,12,6,1
140 FOR K=0 TO 360/N STEP 2
150 T1=K/180*3.14159!
160 X=239*COS(T1)+320
170 Y=239*SIN(T1)+240
180 PSET(X,Y):M=L-M
190 FOR J=K TO K+360 STEP 360/N
200 T=J/180*3.14159!
210 X=239*COS(T)+320
220 Y=239*SIN(T)+240
230 LINE-(X,Y),PSET,%M
240 NEXT J
250 NEXT K
260 FOR K=0 TO 360/N STEP 2
270 T1=K/180*3.14159!
280 X=239*COS(T1)+320
290 Y=239*SIN(T1)+240
300 PSET(X,Y)
310 FOR J=K TO K+360 STEP 360/N
320 T=J/180*3.14159!
330 X=239*COS(T)+320
340 Y=239*SIN(T)+240
350 LINE-(X,Y),PSET,%O
360 NEXT J
370 NEXT K
380 NEXT N
390 FOR N=3 TO 5
410 FOR K=0 TO 360/N STEP 2
420 T1=K/180*3.14159!
430 X=239*COS(T1)+320
440 Y=239*SIN(T1)+240
450 PSET(X,Y)
460 FOR J=K TO K+360 STEP 360/N
470 T=J/180*3.14159!
480 X=239*COS(T)+320
490 Y=239*SIN(T)+240
500 LINE-(X,Y),PSET,0
510 NEXT J
520 NEXT K
530 NEXT N